一个简单的数字转换大写

【例子介绍】

将数字金额变为，大写对应金额功能。

【相关图片】delphi7编译运行通过

【源码结构】

function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
     const
     cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
     cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'), ( '元','零','零','零','万','亿','亿','零','零','万','亿','亿','元'));
     var
      i : Integer;
     sNum,sTemp : WideString;
    begin
     result :='';
     sNum := format('%15d',[round(n * 100)]);
     for i := 0 to 14 do
     begin
     stemp := copy(snum,i 1,1);
     if stemp=' ' then continue
     else result := result cNum[strtoint(stemp) 1] cNum[i 13];
     end;
     for i:= 0 to 12 do
     Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
     if pos('零分',result)=0
     then Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
     else Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
     Result := StringReplace(Result, '零分','', [rfReplaceAll]);
    end;